home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SCROLLER < prev    next >
Text File  |  1997-04-05  |  350b  |  5 lines
  1. SCROLLER: procedure;parse arg clr,ro1,co1,ro2,co2,dir,txt;txt=copies(" ",co2-co1)||txt" ";if clr then cls
  2.   do i=ro1 to ro2;lo=1;in=1;hi=length(txt);if dir=2 then d2=(i/2=i%2);if d2=0 then do;lo=hi;hi=1;in=-1;end
  3.   do j=lo to hi by in;maygetchar;if result~="NOCHAR" then leave i;ch=substr(txt,j,co2-co1);transmit ""i";"co1"H"ch;end j;end i
  4.  return
  5.